#!/bin/bash

# -------------------------------------------------------------------------- #
# Copyright 2002-2023, OpenNebula Project, OpenNebula Systems                #
#                                                                            #
# Licensed under the Apache License, Version 2.0 (the "License"); you may    #
# not use this file except in compliance with the License. You may obtain    #
# a copy of the License at                                                   #
#                                                                            #
# http://www.apache.org/licenses/LICENSE-2.0                                 #
#                                                                            #
# Unless required by applicable law or agreed to in writing, software        #
# distributed under the License is distributed on an "AS IS" BASIS,          #
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.   #
# See the License for the specific language governing permissions and        #
# limitations under the License.                                             #
#--------------------------------------------------------------------------- #

# ln fe:SOURCE host:remote_system_ds/disk.i vmid dsid
#   - fe is the front-end hostname
#   - SOURCE is the path of the disk image in the form DS_BASE_PATH/disk
#   - host is the target host to deploy the VM
#   - remote_system_ds is the path for the system datastore in the host
#   - vmid is the id of the VM
#   - dsid is the target datastore (0 is the system datastore)

SRC=$1
DST=$2

if [ -z "${ONE_LOCATION}" ]; then
    TMCOMMON=/var/lib/one/remotes/tm/tm_common.sh
else
    TMCOMMON=$ONE_LOCATION/var/remotes/tm/tm_common.sh
fi

DRIVER_PATH=$(dirname $0)
LIBFS=${DRIVER_PATH}/../../datastore/libfs.sh

. $LIBFS
. $TMCOMMON

#-------------------------------------------------------------------------------
# Set dst path and dir
#-------------------------------------------------------------------------------
DST_HOST=$(arg_host $DST)
DST_PATH=$(arg_path $DST)
DST_SNAP_DIR=${DST_PATH}.snap
DST_FILE=$(basename $DST_PATH)
DST_DIR=$(dirname $DST_PATH)

SRC_PATH=$(arg_path $SRC)
SRC_SNAP_DIR=${SRC_PATH}.snap
SRC_FORMAT=$(image_format "$SRC_PATH")

#-------------------------------------------------------------------------------
# Create DST path
#-------------------------------------------------------------------------------

ssh_make_path $DST_HOST $DST_DIR
enable_local_monitoring $DST_HOST $DST_DIR "ssh"

#-------------------------------------------------------------------------------
# Copy SRC into DST
#-------------------------------------------------------------------------------
log "Copying $SRC_PATH in $DST"

if [ -d "${SRC_SNAP_DIR}" ]; then
    CP_SNAPSHOTS=$(cat <<EOT
        mkdir -p "${DST_SNAP_DIR}"
        for F in \$(ls ${SRC_SNAP_DIR}); do
            if [ -f ${SRC_SNAP_DIR}/\$F ]; then
                cp ${SRC_SNAP_DIR}/\$F ${DST_SNAP_DIR}
            fi
        done
EOT
)
fi

if [ "$SRC_FORMAT" = "qcow2" ]; then
    CP_SRC=$(cat <<EOT
        mkdir -p "${DST_SNAP_DIR}"
        cd ${DST_SNAP_DIR}
        rm -f "${DST_FILE}.snap"
        ln -sf "." "${DST_FILE}.snap"
        rebase_backing_files "$DST_FILE"
        SNAP="\$(ls | grep '^[[:digit:]]*$' | sort -n | tail -n 1 || :)"
        if [ -z "\${SNAP}" ]; then
            SNAP=0
            cp "$SRC_PATH" "$DST_SNAP_DIR/0"
        fi

        cd ..
        rm -f "${DST_FILE}"
        ln -sf "${DST_FILE}.snap/\$SNAP" "${DST_FILE}"
EOT
)
else
    CP_SRC="cp ${SRC_PATH} ${DST_PATH}"
fi

CMD=$(cat <<EOT
set -ex -o pipefail
$(type rebase_backing_files  |grep -v 'is a function')
${CP_SNAPSHOTS}
${CP_SRC}
EOT
)

ssh_exec_and_log $DST_HOST "$CMD" "Error copying $SRC to $DST"

exit 0
